function DrawAten (Transfer, Color, figura, w,unidades)
    w=logspace(log10(w(1)),log10(w(end)),100000);
    [MAG,PHASE] = bode((1/Transfer),w);
    MAG = squeeze (MAG);
    semilogx(figura,w/unidades,20*log10(MAG),'Color',Color);

end